home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / NEWSOFT / AUGUST / WORKDISC / !Forthmacs / lib / hexify < prev    next >
Text File  |  1997-04-04  |  1KB  |  55 lines
  1. \ This program converts a binary file into a form suitable for downloading
  2. \ to a Data-IO prom programmer.  The format used is Intel Hex Format,
  3. \ which is select code 83 on the Data-IO.
  4. \ 
  5. \ To use:
  6. \ % forth hexify.fth -s "hexify your-binary-file-name" >filename.hex
  7.  
  8. \ TODO: use new record formats to support >64K:
  9. \ : bb AAAA 02 SSSS dd dd dd dd ... cc          Address is (SSSS <  4) + AAAA
  10. \ : bb AAAA 04 HHHH dd dd dd dd ... cc          Address is (HHHH < 16) + AAAA
  11. \ The SSSS and HHHH portions of the address are "sticky", applying to
  12. \ subsequent (type 00) records.
  13.  
  14. hex
  15.  
  16. 10 constant bytes/line
  17. variable out-addr
  18. create line-buf 64 allot
  19. variable outfile
  20. variable checksum
  21. variable end-of-file?
  22.  
  23. : .2    (s u -- )    h# ff and s>d <# # # #> 2dup upper type  ;
  24. : .4    (s u -- )    s>d <# # # # # #> 2dup upper type  ;
  25.  
  26. : get-line
  27.     bytes/line 0 do h# ff line-buf i + c! loop
  28.     bytes/line 0
  29.     do    ifd @  fgetc  dup -1 =
  30.         if    drop  end-of-file? on  leave
  31.         else    line-buf i + c!
  32.         then
  33.     loop ;
  34. : put-line
  35.     bytes/line  checksum !
  36.     ." :"  bytes/line .2
  37.     out-addr @ 8 rshift h# ff and checksum +!
  38.     out-addr @ h# ff and checksum +!
  39.     out-addr @ .4 ." 00"
  40.     bytes/line  0
  41.     do    line-buf i + c@  dup checksum +!  .2
  42.     loop
  43.     checksum @ ff and  100 swap -  .2 cr
  44.     bytes/line out-addr +! ;
  45. : (hexify    ( -- )
  46.     end-of-file? off
  47.     0 out-addr !
  48.     begin    get-line  put-line
  49.         end-of-file? @
  50.     until
  51.     ." :00000001FF" cr
  52.     ifd @ fclose ;
  53. : hexify    ( "input-file-name" -- )
  54.     hex reading (hexify  ;
  55.